#!
use HTML::TreeBuilder;
 
$file = shift;
$tree = HTML::TreeBuilder->new->parse_file("$file");

print $tree->as_text;
